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ABSTRACT 
THIS IS A LOGIC TEST OF THE DR11C. FOR THIS TEST TO OPERATE 
A SPECIAL MAINTENANCE CABLE MUST BE CONNECTED (BCO8R). 
THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DR11C°S. 
REQUIREMENTS a 
EQUIPMENT 
PDP-11 STANDARD COMPUTER 
DR11C 
BCO8R FOR EACH DR11C 
STORAGE 
2.2.1 PROGRAM STORAGE - THE ROUTINE USES MEMORY 
FROM 0000 TO 5200. 
LOADING PROCEDURE 
ME THOD 
ABSOLUTE LOADER 


STARTING PROCEDURE 
CONTROL SWITCH SETTING 


FOR SWITCHLESS arin tel THE PROGRAM WILL USE THE 
CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES 

IF NO HARDWARE SWITCH REGISTER IS FOUND. THE PROGRAM 
ALLOWS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 
THROUGH THE CONTROL G (*G) ROUTINE. LOCATION 174 

WILL BE USED AS THE SOFTWARE DISPLAY REGISTER. 


STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR ZERO. 
(IF NOT ZERO, BIT 0 TO 8 WILL: BE STARTING VECTOR.) 


STARTING ADDRESS OR ADDRESSES 


(A) 200 = START OF TEST--FOR NORMAL TESTING 
(B) 204 = SPECIAL ENTRANCE --FOR TESTING UNIQUE DR11C 
(C) 210 = RESTART=-FOR STARTING AFTER SHUT DOWN 


PROGRAM AND/OR OPERATOR ACTION 
LOAD PROGRAM INTO MEMORY. 


SEQ 0002 


Dd 1 
ZZ7-CZDRC-H,DR11C DEV REG MACY11 30A(1052) 12=-JUN=78 14:59 PAGE 4 
CZDRCH.P11 12=JUN=78 14:57 


SET SWITCH REGISTER TO STARTING ADDRESS. 
LOAD ADDR Sa 

PRESS STAR 

THE PROGRAM WILL STAY IN SECTION AND LOOP. 


FOR SPECIAL ENTRANCE = SA204 


pices tint in SWITCH REGISTER EQUAL TO CSR ADDRESS OF DR11C 
2ND HALT SET SWITCH REGISTER EQUAL TO VECTOR ADDRESS OF DR11C 
PRESS CONTINUE 

RAISE SWITCH 10 TO ‘l'' TO INHIBIT SEQUENCING TO NEXT DR1IC 


oO 
NS 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


5.1.1 AT SA 200 .. THE INSTRUCTION AND LOGIC TEST. 
WITH ALL SWITCHES DOWN THE PROGRAM WILL PRINT 
OUT ON ERRORS AND CONTINUE IN TEST. (* WILL 
BE PRINTED AT COMPLETION OF TESTING EACH DR11¢) 


SWITCH SETTINGS ARE 


..- HALT ON ERROR 
--- SCOPE LOOP 
--- INHIBIT PRINTOUT 
- NOT USED 
.-- INHIBIT ITERATION LOOP 
--- DO NOT ADVANCE TO NEXT DRI1IC 
..- INHIBIT PRINTOUT OF DEVICE TESTED. 


ee ce ed cee ce ee el cd ae ed ed ced eed ed 


ron 2 SS oo ee 


5.1.3 
SUBROUTINE ABSTRACTS 
5.2.1 BEGIN SA 200 
we 


THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST 
IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH SUB-TEST AS IT IS BEING ENTERED. 

IF A SCOPE LOOP IS REQUESTED, IT WILL JUMP TO THE 
START OF THE SUBTEST THAT THE SCOPE LOOP IS RE- 
QUESTED FOR. 


IS A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS 
THE FAILING SUBTEST, AND THE INCORRECT DATA AT 
THE TIME OF THE FAILURE. SEE 6.1 


(5. OPERATING PROCEDURE CONT'D) 
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PROGRAM AND/OR OPERATOR ACTION P 


1 LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN 
IS THE INSTRUCTION AND LOGIC TEST. IF AN ERROR 
IS DETECTED HERE, THERE WILL BE A PRINTOUT. WHEN 
AN ERROR IS DETECTED AND IT IS NECESSARY TO SCOPE 


5.5. 


ON IT, 


PLACE SW15 UP TO HALT ON ERROR, THEN SW14 UP 


TO LOOP ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS. 


ERRORS 
ERROR PRINTOUT 

ARE_IN A FOUR WORD FORMAT. THE 1ST IS THE PC+2 OF THE 
DETECTED ERROR. THE 2ND IS THE PROCESSOR STATUS 

STER. THE 3RD IS DEVICE ADDRESS, THE 4TH IS 
VECTOR ADDRESS. 

ERROR RECOVERY 

DEPRESS CONTINUE TO RESTART SECTION 

RESTRICTIONS 


STARTING RESTRICTION 


REGI 


NONE 


OPERATIONAL RESTRICTION 


DR11C MUST HAVE THE BCO8R CABLE TO RUN 
THIS TEST. 


NOTE THAT THE DR11C HAS FLOATING VECTORS: 


THE BELOW IS THE ASSIGNMENT OF FLOATING VECTORS, THE ASSIGNED 
SEQUENCES ARE: 


THE 


te 


ae wax oOo wre we 
a e ° r . . 8 


STARTING 
THEN ANY 
THEN ANY 
THEN ANY 
THEN ANY 
THEN ANY 
THEN ANY 
THEN ANY 


AT 300 AND WORKING UPWARD ALL DC11"S WILL BE ASSIGNED. 
EXTRA KL11 CALLED FOR (VTO5, VT06, LC11) 

DP11 CALLED FOR. 

DM11 CALLED FOR. 

DN11 CALLED FOR. 

DM11BB CALLED FOR. 

DR11A CALLED FOR. 

DR11C CALLED FOR. 


SEQ 0004 
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THE DR11A AND DR11C DEVICE oe assis WILL BE ASSIGNED IN THE USER 

AREA OF 767776 TO 764000. THE ASSIGNMENT OF ADDRESSES WILL START AT 
THE HIGH ADDRESS OLIMIT AND PROCEED DOWNWARD. sty oa SPECIAL SYSTEMS 
SHOULD START THEIR ASSIGNMENTS OF SPECIAL DEVICES AT THE LOW ADDRESS 
LIMIT AND WORK UP. AFTER ASSIGNING ALL DR11A'S, ASSIGN DR11C'S 


767776 TO 767770 DR11C #0 ASSUMING NO DR11A'S 
767766 TO 767760 DR11C #1 


767706 TO 767700 DR11C #7 


767606 TO 767600 DR11C #15 
MISCELLANEOUS 


WHERE THERE ARE MULTIPLE DR11C OR A SYSTEM AND IT IS DESIRED TO 

TEST ONLY ONE OF THEM. THIS MAY BE ACHIEVED BY USING THE SPECIAL 
STARTING ADDRESS AND “pee -— ON A ONE (UP) TO INHIBIT SEQUENCING 
TO THE NEXT DR11C. SEE 4.3.1 


EXECUTION TIME 

FOR EACH DR11C ABOUT 1 MINUTE 

UNTESTED LOGIC 

SIGNALS TO USER NOT TESTED: 

NEU DATA READY’ 

“DATA TRANSMITTED’ 

"INIT’’ TO THE USER 

PROGRAM DESCRIPTION 

THIS PROGRAM WHEN STARTED AT 200 CHECKS THE STANDARD DR11-C'S 


THE PROGRAM THEN PERFORMES AN INCREMENTAL LOGIC CHECK FOR 
THE SELECTED DR11C. 


THE DATA REGISTER IS TESTED TO SEE IF ‘RESET’ CLEARS IT, 
AND IF IT WILL HOLD ALL COMBINATIONS OF NUMBERS. 


THE READ/WRITE BITS OF THE STATUS REGISTER ARE ALSO TESTED. 


BOTH THE ‘‘A’’ AND ‘B'' INTERRUPTS ARE TESTED TO SEE IF THEY 
INTERRUPT AT THE CORRECT BUS REQUEST LEVEL BR-5. 


AT THE END OF THE TEST AN ‘*’ IS TYPED AND ALSO THE 
ADDRESSES OF THE DR11-C CONTROL STATUS REGISTER AND 

IT'S SIDE INTERRUPT VECTOR IS TYPED (IF SELECTED VIA 

SWITCH 9.). THE PROGRAM THEN RETESTS THE UNIT (CIF SELECTED 
VIA SWITCH 10) OR SCANS TO THE NEXT DR11-C. IF ANOTHER 
DR11-C IS ON THE SYSTEM THEN THE PROGRAM RESTARTS TESTING 
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THE NEW DR11-C. 


AFTER ALL DR11-C*S HAVE BEEN TESTED THE PROGRAM WILL 
TYPE "END PASS' AND RESTART TESTING WITH THE INITIAL DR11-C. 


IF NO ERRORS OCCUR AND THREE DR11-C°S ARE AVAILABLE 
AND SWITCH 9 IS DOWN THE PROGRAM WILL TYPE. 
160000 770 * 


157770 1000 * 
ahaa 1010 * 


ETC. 
IF SWITCH 9 IS UP THEN 
* 


* 
& 


IF A POWER FAIL OCCURS THE PROGRAM WILL RESTART AT ‘‘START"'. 
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10. LISTING 


;GENERAL REGISTER LOGIC TEST 


177776 PSW=177776 
104000 HL T=104000 
167770 CSR=, 67770. 
REGISTER DEFINITIONS 
RO=%0 


SWITCHES 


SwW9=1000 
S$w10=2000 
SwW11=4000 
SW13=20000 
SwW14=40000 


-SBTTL BASIC DEFINITIONS 


;*INITIAL_ ADDRESS OF THE STACK POINTER *** 1200 *** 
STACK= 1200 

-EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE >;BASIC DEFINITION OF SCOPE CALL 


; *MISCELLANEOUS DEFINITIONS 
HT= 11 3:CODE FOR HORIZONTAL TAB 
LF= 12 ::CODE FOR LINE FEED 
CR= 15 ::CODE FOR CARRIAGE RETURN 
CRLF = ;:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 3:PROCESSOR STATUS WORD 
-EQUIV PS,PSW 
177774 = 177774 3:STACK LIMIT REGISTER 
177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
177570 ; sHARDWARE SWITCH REGISTER 
177570 DDISP= 177570 ; sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 20 ::GENERAL REGISTER 
000001 ;:GENERAL REGISTER 
000002 ;:GENERAL REGISTER 
000003 7;GENERAL REGISTER 
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7zSTACK POINTER 
3;PROGRAM COUNTER 


NOUS WM OO 


:sPRIORITY 
3*""SWITCH REGISTER’’ SWITCH DEF.INITIONS 
SW15= 100000 
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BITOS= 40 
BITO4= 20 
BITO3= 10 
BITO2= 
BITOI= 2 
BITO0= 


“EQUIV BITOS.BITS 
-EQUIV BIT04,BIT4 
“EQUIV BI1T03.BIT3 
-EQUIV BITO2,BIT2 
-EQUIV B1T01,BI1T1 
-EQUIV BITOO,BITO 


‘CPU’ TRAP VECTOR ADDRESSES 


ENABLE ABS 


;*BASIC ° 
ERRVEC= 4 
RESVEC= 10 
TBITVEC=14 
TRTIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 
92 
HALT 
+2 
HALT 
.+2 
HALT 
_ 
HALT 
.+2 
HALT 
-+2 
HALT 
oe 
HALT 
.+2 
HALT 
.+2 
HALT 
.+2 
HALT 
ote 
HALT 
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SEQ 0009 


33TIME OUT AND OTHER ERRORS 
eT AND ILLEGAL INSTRUCTIONS 


33; TRACE TRAP 

;;BREAKPOINT TRAP (BPT) 

2 ¢ INPUT/OUTPUT TRAP (IOT) **SCOPE** 
;sPOWER FAIL 

3 sEMULATOR TRAP (EMT) **ERROR** 
;3''TRAP’* TRAP 


::TTY KEYBOARD VECTOR 
ITTY PRINTER VECTOR 
‘PROGRAM INTERRUPT REQUEST VECTOR 
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000062 
000000 
000066 
000000 
000072 
000000 
000076 
000000 
000102 
000000 
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000242 
000090 
000246 
000000 
000252 
000000 
000256 
000000 
000262 
000000 
000266 
000000 
000272 
000000 
000276 
000000 
000302 
000000 
000306 
000000 
000312 
000000 
000316 
000000 
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000602 
000000 
000606 
000000 
000612 
000000 
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SEQ 0013 
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000762 
000000 


SEQ 0014 


: INITIAL START 


;TO SELECT UNIQUE ADDRESS AND VECTOR 
RESTART 


THIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES 


RCSR: CSR 
CSR+2 
CSR+4 
CSR+3 

RCSR1: 300 
302 
304 


THIS TABLE CONTAINS REGISTER AND VECTOR ADDRESSES OF THE DR11-C UNDFR TEST 
177570 
sADDRESS OF DR11-C STATUS REGISTER 
ADDRESS OF DR OUTPUT BUFFER REG. 


: zsADDRESS OF DR INPUT BUFFER REG. 
167773 3 HIGH BYTE OF OUTPUT BUFFER REG. 
000300 


3 ; INTERRUPT VECTOR OF UNIT UNDER TEST 
000302 : 
0003 ; INTERRUPT VECTOR 


000000 : COUNT LOCATION 
000240 $ < ;PRIORITY LEVEL 
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001246 


000000 


012706 


013746 


012637 
023737 


000403 
112767 
000410 


000463 


177777 


001322 
000176 
000174 
000004 


000042 
177777 
001416 


000042 
177620 


000001 


000302 
177776 
000003 


000776 
001516 


177706 


000176 


005144 


177472 
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PASCNT: 0 NUMBER OF PASSES COMPLETED 


START1: 
-SBTTL INITIALIZE THE COMMON TA AGS 
MOV ASTACK, SP sSETUP THE STACK POINTER 
sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
EQUAL TOA' SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @#ERRVEC ,-(SP) 3 SAVE ERROR VECTOR 
#64$, wpe 7:SET UP ERROR VECTOR 
A#DSWR :zSETUP FOR A HARDWARE SWICH REGISTER 
DIS? DISPLAY 72AND A HARDWARE DISPLAY REGISTER 
#-1, aSwR 73 TRY TO REFERENCE HARDWARE SWR 
66$— a IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
65$ +: BRANCH IF NO TIMEOUT 
64$: MOV #65$, (SP) ti SET UP FOR TRAP RETURN 


65$: ASWREG, SWR :sPOINT TO SOFTWARE SWR 
#DISPREG,DISPLAY 
66$: (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


O442 , A446 
3$ 


BEQ YES, SKIP TITLE 
-SBTTL TYPE PROGRAM NAME 
7; TYPE THE NAME 4 THE PROGRAM IF FIRST PASS 
INC #~1 2sFIRST ae 
67$ 4 toe IF 
TYPE -68$ YPE ASCIZ NSTRING 
-SBTTL GET VALUE FOR SOFTWARE suitcH REGISTER 
TST a442 2 ¢ARE WE RUNNING UNDER XXDP/ACT? 
69$ BRANCH IF YE 
SWR ,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
70$ CH IF NO 


70$ T:GET SOFT-SWR SETTINGS 
#1, $AUTOB 2:SET AUTO-MODE INDICATOR 


67$ 3;GET OVER THE ASCIZ 
<CRLF>#MD~11-DZDRC-GA<CRLF > 


8$ 4 oy" INTERRUPT VECTOR SIZER iF 
IN AUTOMATIC MODE 
;SIZE FOR INTERRUPT VECTOR IF IN AUTOMATIC MODE. 


SET UP FLOATING VECTOR AREA 


SET UP BPT 
;SET UP BPT PSW 
#101. aRCSR FORCE AN INTERRUPT 


NO INTERRUPT OCCURRED 


SEQ 0015 
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6$ 
000004 5$: #4, (SP) FIGURE OUT INTERRUPT VECTOR 
001210 (SP) ,@ARCSR1 :PUT IT IN TABLE 
001210 @ARCSR1 ,@ARCSR1+2 
000002 #2 ,QARCSR1+2 FILL IN NEXT TABLE ENTRY 
001210 00 @4RCSR1 ,A@ARCSR1+4 
1+4 sFILL IN LAST TABLE ENTRY 


000004 é 

000016 000 6 RESTORE BPT 

000302 SET UP TRAP CATCHER 
177776 


000776 
000020 


001726 
001200 © 
000004 


000004 
177060 


001240 


#160000, 
PC a¥SPEC1 
#770,R1 

PC ,a¥SPEC2 


PC 

XORA: (%6) +, (%6) + 
(%6) +, a44 
@4XORFLG 


S PC 
ADDRESS AND VECTORS 
001200 #RCSR,RO GET ADDRESS OF FIRST POSSIBLE DR11-C'S 
001222 A#DRCSR,R1 


(RO)+,(R1)+ ;LOAD INITIAL TEST ADDRESSES 
(RO)+, (R1)+ 
(RO) +, (R1)+ 
(RO) +, (R1)+ 
(RO) +, (R1)+ 
(RO) +, (R1)+ 
MO (RO) +, (R1)+ 
001200 RSTART: MSTACK,%6 ;SET UP STACK 
002010 003004 MO #BEGIN,RETURN ;SET SCOPE RETURN 
004770 @4SCOPEF : 


:DOES RESET CLEAR REGISTER? 
CKSWR 
001000 177214 
005010 


J 
177206 BEGIN: DRCSR :GET ADDRESS OF STATUS REGISTER 
012777 000240 175754 MO SET PRIORITY LEVEL 6 
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012737 


000 
012706 


002060 
000010 
177777 
177152 


177777 


000010 
177777 
177054 


052525 


125252 
177000 
125252 


000040 


000401 
000400 


MACY11 30A(1052) 


000004 
002730 
177160 


000004 


002662 
177112 


002630 
177060 


002600 
177030 


177004 


004766 


. « 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


#1$, 044 
#10, 1CCUNT 
#-1 , ADROBUF 


@DROBUF , %0 
2s 


2$ 
ASTACK, SP 
46,044 


o 


#4000, I COUNT 
#1, ADROBUF 
@DROBUF , %0 
#-1,%0 

+4 


#10, 1COUNT 
#-1 , ADROBUF 


@DR IBUF 
- +4 


#4000, ICOUNT 
#52525 , @DROBUF 


@DROBUF , 20 
1 Same 
_ 


#125252 ,aDROBUF 
@DROBUF , 20 
#125252, 20 


;SET TIME OUT TRAP VECTOR 
PRESET OUTPUT BUFFER 
;CLEAR DATA REGISTER 

GET RESULT OF RESET 
DATA REGISTER NOT CLEAR 


ERROR! TIMED OUT WHEN REFERENCING DROBUF . 


SRESET STACK POINTER 
RESTORE TIME OUT TRAP 


ALL ONES TO REGISTER 


REG WILL NOT HOLD ONES 


:SET DATA TO ALL ONES 
SHOULD CLEAR REGISTER 


sREG FAILED TO CLEAR 


DATA NOT=52525 


DATA NOT=125252 


: TEST ot” geld OF DR11-C OUTPUT BUFFER REGISTER 


BUF TST: 


1$: 


2$: 


#40 ,a41 COUNT 
R5,R2 


:GET ADDRESS OF DRCSR 
cay ge te OF OUTPUT BUFFER REG. 
Aa — ANT 


COUN 
;PRESET tapi RESULT 
CLEAR REGISTE 


SEQ 0017 
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002274 
002276 
002300 


; TEST THAT BYTE REFERENCE TO DROBUF AFFECT PROPER BYTE ONLY 


S 
177777 +=176706 TAG: #-1 , ADROBUF 
176702 C @DROBUF CLEAR LOW BYTE 


@DROBUF ,%0 
re ss ia 
+ 


;BYTE LOW FAILED TO CLEAR 


177777 +=176656 #-1 , ADROBUF 

176656 @DRBH10 ;CLEAR HIGH BYTE 
176646 @DROBLF , 20 

000377 #377 ,%0 


HIGH BYTE CLEAR FAILED 


002440 


; INCREMENT HIGH BYTE 
1(R4) 
176600 ee 
+ 


sHIGH BYTE HAS BAD DATA 
000001 a 


BR 1$ 
2$: 7 0 


3$: SCOPE 
;CONTROL STATUS REGISTER (DRCSR) TESTS. 
CLR (R5) 
(R5),RO 
+4 


000140 #140,aR5 : INTERRUPT ENABLE FOR A+B 
000140 #140, 20 :ENABLE BITS 
or 


000010 002264 MO #10, 1 COUNT 
000140 MOV #140,aR5 :SET INTERRUPT ENABLE FLOPS 
;CLEAR THOSE FLOPS 
“7. 
i 
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000004 
962 002520 052715 000001 
963 002524 021527 000201 
964 530 


000004 
969 002540 052715 000002 
100002 


000004 
976 002560 052737 000340 
177777 
100343 


2715 000003 
022715 000140 
1401 


000004 
987 002620 012737 000340 
988 002626 052715 000003 
00000 


000002 


176316 
176314 


000004 : 
me 002644 012767 004000 


MACY11 30A(1052) 


177776 


177776 


002114 


176310 


G 
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« MOV 


#1,aR5 
ars 4201 
+4 


aR5 

#2,0R5 

aR5 ,4100002 
+4 

aR5 

#340 ,a4PSW 


#-1 aR 
#100343, (R5) 


#3.,aR5 
#140,aR5 
+4 


a ethene 


aR5 
+4 


#4000, I COUNT 


RESET DID NOT CLEAR INTERRUPT ENABLE BITS 


;SHOULD SET REQ A ALSO 


"SHOULD SET REQ B 


;WRONG BITS SET 


sRESET DID NOT CLEAR 


BIT 0 DID NOT SET BIT 7 


;BIT 1 DID NOT SET BIT 15 


sTes? a TRANSFERS - CABLE MUST BE CONNECTED 


CLR 
MOV 
BEQ 
HLT 


@DROBUF 


@DRIBUF , ADROBUF 


+4 


; TEST TRANSFER OF ZERO 
NOT EQUAL TO ZERO 


SEQ 0019 
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177777 +=176274 #=-1 , ADROBUF 
176272 176266 @DRIBUF ,aDROBUF ;MOV ALL ONES 
177777 176260 ee, 

.+ 


NOT ALL ONES 


002010 I COUNT 
%0 


C 
176240 : %0, AROBUF ;TEST ALL NUMBERS 
176236 176232 @DRIBUF , aDROBUF 
176226 a ara 
.+ 


;ERROR - CHECK %0 FOR GOOD 
x0 :DROBUF FOR BAD 
TST9 
176212 @DROBUF 
TST6 
TST9: 


000004 
012737 000005 004766 MOV #S ,Q41 COUNT 
TEST DATA FROM BLACK BOX (NOT CONNECTED) 

012777 177777 176172 MOV 4-1 , @DROBUF 
176166 176166 @DROBUF ,aDRIBUF ;STATIC LINES EQUAL ONES 
176162 @DRIBUF ,%0 DATA REGISTER TO %0 
177777 — 

+ 


REG 0 SHOULD = ALL ONES 


:READY BIT IS IN A ONE STATE 
SCOPE 


000003 MOV #3,aR5 :CSRO AND CSR1 
MOV (R5) ,RO 
100203 CMP #100203 ,R0 
BEQ +4 
HLT 


RAISE INTERUPT ''‘A"' 
177776 IS #340, a4PSw :LOCK OUT INTERRUPTS 
#STACK, %6 
176114 #TST4,aDRVECA ; INTERRUPT RETURN POINTER 
: : INTERRUPT ENABLE AND CSRO 
177776 aAPSW 
ZNO ''A'' INTERRUPT 
TST4: ars 
176074 176070 MO DRLVL,@DRVECA ;MOVE .+2 TO ‘'A'' INTERRUPT VECTOR 
:RAISE INTERRUPT ‘B'' 
SCOPE 
001200 MO ASTACK, %6 
000340 177776 . #340, a#PSw 
176052 atsTéea @DRVECB 
#42, aR5 


MO :IE AND CSR1 
042737 000377 177776 #377, aAPSW 





I 
2Z7=CZDRC=H,DR11C DEV REG 30A(1052) i2=JUN=78 14:59 PAGE 22 
CZDRCH.P11 12=JUN=78 14:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0021 


000240 NOP 
eats HLT 3NO B INTERRUPT 
005015 TST5: CLR ars 


TEST FOR INTERRUPT FROM DEVICE 
MOV PL,@DRLVL 


L, 

#340, a4PSW PROCESSOR LEVEL ZERO 
ATINT1,aDRVECA 

ASTACK,%6 STACK POINTER 

#100, @DRCSR ;CLEAR INTERRUPT ENABLE 

#101, aDRCSR SET INTERRUPT ENABLE-AND CSRO 


:NO DEVICE INTERRUPT OCCURED 


016777 
2737 


TINT1: 
; TEST UPT FROM THE DEVICE 
177776 #340, a4PSwW 


IC . 
177776 #040, a4PSW SET TO PRIORITY LEVEL 1 
175734 AMTINT2,QDRVECA ; INTERRUPT VECTOR ADDRESS 
ASTACK,%6 ;SET UP STACK POINTER 
175712 #100,@DRCSR 7CLEAR INTERRUPT ENABLE 
175704 #101, aDRCSR SET INTERRUPT ENABLE-AND CSRO 


:NO DEVICE INTERRUPT OCCURED 


177776 #340 ,a4PSwW 
177776 C0,a4PS 3SET TO PRIORITY LEVEL 2 
175664 . ; INTERRUPT VECTOR ADDRESS 
T %6 ;SET UP STACK POINTER 
175642 :CLEAR INTERRUPT ENABLE 
175634 SET INTERRUPT ENABLE-AND CSRO 


NO DEVICE INTERRUPT OCCURED 


S333 


3: SCOPE 

FOR INTERRUPT FROM THE DEVICE 
177776 BIC #340, a4PSW 
177776 #140, a4PSW ;SET TO PRIORITY LEVEL 3 
175614 ATINT4,aDRVECA ;INTERRUPT VECTOR ADDRESS 

MOV HSTACK, %6 :SET UP STACK POINTER 

175572 #100,aDRCSR :CLEAR INTERRUPT ENABLE 
175564 #101, aDRCSR ;SET INTERRUPT ENABLE-AND CSRO 


NO DEVICE INTERRUPT OCCURED 
TINT4: 


i TEST 
177776 
177776 200, a4#PSW RAISE PROCESSOR PRIORITY TO LEVEL 4 
175544 ‘ :IN CASE OF INTERRUPT 
ASTACK, £6 SET STACK POINTER 

175522 #100, aDRCSR :CLEAR INTERRUPT ENABLE 
175514 #101, aDRCSR SET INTERRUPT ENABLE AND CSRO 

LET INTERRUPT OCCUR 
175504 #100,aDRCSR 


: 
1 
: 
1 
1 
- 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
; 
; 
1 
j 
1 
j 
1 
1 
1 


lk ek ed ed 3 2) = 2) od J) 


RRRWVLSSOVRARANLSSRIEGRALLS 
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Z7Z7-CZDRC-H,DR11C DEV REG 30A(1052) 12=JUN-78 14:59 PAGE 23 
CZDRCH.P11 12-JUN~78 14:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0022 


000240 
104000 


=’ 
ie 
On 


HLT NO DEVICE INTERRUPT OCCURED 
TINTS: SCOPE 


TEST FOR NO INTERRUPT FROM DEVICE (HIGHEST PROCESSOR PRIORITY) 
052737 000340 177776 BIS #340 ,a4PSW RAISE PROCESSOR PRIORITY TO HIGHEST LEVEL 
175472 #TINT6,aDRVECA IN CASE OF INTERRUPT 
ASTACK , 26 :SET STACK POINTER 
175450 #100, aDRCSR ;CLEAR INTERRUPT ENABLE 
175442 #101, aDRCSR 


175432 #100,@DRCSR 
BR +4 WITH NO INTERRUPT, BRANCH OVER HALT 
TINT6: “ ; INTERRUPT OCCURED 


;TEST FOR NO INTERRUPT FROM DEVICE 
177776 BIC 4340 ,a4PSW 
177776 #240 ,a4PSW RAISE PROCESSOR PRIORITY TO LEVEL 5 
175412 ATINT7,Q@DRVECA ;IN CASE OF INTERRUPT 
AMSTACK,%6 SET STACK POINTER 
175370 #100, aDRCSR ;CLEAR INTERRUPT ENABLE 
175362 #101, aDRCSR SET INTERRUPT ENABLE AND CSRO 


175352 #100, aDRCSR DON'T LEAVE IT SET 
BR +4 WITH NO INTERRUPT, BRANCH OVER HALT 
TINT7: : ; INTERRUPT OCCURED 


;TEST FOR NO INTERRUPT FROM DEVICE 
177776 BIC #340, lh 


177776 #300 ,a4PSW RAISE PROCESSOR PRIORITY TO LEVEL 6 
175332 ATIN'B. eet IN CASE OF ak a 


175310 
175302 
175274 #100, aDRCSR DON'T LEAVE IT SET 


;WITH NO INTERRUPT, BRANCH OVER HALT 
s INTERRUPT OCCURED 


016777 175272 175266 MOV DRLVL,@DRVECA ;FOR FALSE INTERRUPT 
005077 175262 CLR @DRVECA 


: TEST ROUTINE 
012777 000052 000356 END: MOV #'*,a sTYPE "*#* 
000354 : TCSR 


000344 
000342 


SISNRARAVVSSEIKALAT LSS SSVKALUNASSSELSGEAGHLESBNKGKUNILSY 


002000 175210 eenie.oam ;LOOP ON SELECTED DR? 
001754 @ARSTART REPEAT TEST ON DR11C SELECTED 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


Coo 
N— 
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Z7Z-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12=-JUN-78 14:59 PAGE 24 
CZDRCH.P11 12=JUN=78 14:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0023 


:STEP TO NEXT DR11-C 
: MOV #10,R 


_ 
= 
co 
W 


STEPPING CONSTANT 

SET TIME OUT TRAP 

STEP TO NEXT DR11-C ADDRESS 
(R35) ;WIL’_ TIME OUT IF NOT AVAILABLE 

001222 SET TABLE POINTER 


000010 
004072 000004 


001754 MP @ARST ;RESTART TEST USING NEXT DR11-C 
001000 175126 #SWI, ASWR 

5$: te ;TYPE ‘END PASS‘ 
pled: 8s: ania RO ;KEEP TRACK OF PASSES COMPLETED 


R 
SENDAD : PC, (RO) 
NOP 


me ed td 
BELKARASLESELEARE 


88 


S38 


SEE 


ron 
NOARVOR 


NOP 
001726 END1: @ASTART 


sENTERED WITH SYSTEM TRAP CALL (HLT) 
yon yh ERROR PC AND STATUS REGISTER 
LT: 
020000 @SWR ,ASW13 ;TEST FOR INHIBIT PRINT OUT 
+4 ;BRANCH TO PRINT 
; INHIBIT, RETURN TO MAIN STREAM 
(6)+,SAVPC sPC OF FAILING ROUTINE 
(6)+,SAVCC ;CC OF ERROR CONDITION 
-(6) ,-(6) sREPOSITION THE STACK 
aTCSR ;WAIT FOR FLAG 
z NOT UP. 


BP 74 
000144 MO #215, aTDBR :CR 
aTCSR 


Mnrnrnrrvnronronry 


ee ed ed cd ae ed ced ed eed ed 
WONAUSWH—O 


1 
; 
: 
1 
1 
; 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1201 
1202 
; 
} 
1 
1 
1 
1 
1 
1 
j 
1} 
1 
1 
1 
1 
1 
1 
1 
1 


MNMNNNNNoNP 


3 


4 
000130 #212, aTDBR LINE FEED 
aTcsR 


SAVE R2 
:SAVE R3 
SAVE R4 
%7,PRTAB ;PRINT OCTAL NUMBER 
#240,aTDBR 
aTcsR ;SPACE BETWEEN WORDS 


74 
SAVCC, %2 
%7,PRTAB PRINT OCTAL NUMBER 





ZZ7-CZDRC-H,DR11C DEV REG 


CZDRCH.P11 


12-JUN-78 14:57 


174676 


000005 
177552 


MACY11 ys bey 


000236 
000220 
000214 


177712 


177702 


000136 


000120 


000102 


000050 


000044 


12=JUN-78 14: 35 


PAGE 25 
T VALUE FOR SOFTWARE SWITCH REGISTER 


;DEVICE ADDRESS AND VECTORS 
RESTORE REGISTERS 


MKNUM : 


MOADD : 


XLIST: 
WAIT2: 


%7 ,MORE ID 


MINUS 
#260, aTDBR 
STAR 

#261 ,@TDBR 
SEVEN, %3 
%2, TOODLE 


TOODLE 
TOOPLE ,%3 
WRTC 


& 
DECML ,WGTCT 
BINCT 
WGTCT,%3 
MKNUM 


#260 ,BINCT 
BINCT,(4)+ 
SEVEN, DECML 
WGTCT 
BINCT 
ASCNT 
XLIST 


#3 ,%3 
SEVEN, SEVEN 
%3 

STAR 

#5 ,ASCNT 


aTCSR 
WAIT2 


;ARE WE IN ACT=11 AUTO MODE? 
:HALT ON ERROR IF YES 


TEST FOR HALT SWITCH 


HALT ON ERROR SET 
sRETURN TO MAIN STREAM 


sDATA 
: STATUS 


:GET LIST ADDRESS 


NEG SIGN PRINT 1 
POS SIGN PRINT 0 


PUT MASK IN R3 

:GET READY TO DOODLE NUMBER IN TOODLE 
COMPENSATES FOR COMPLEMENT DURING BIC 
AND IN OCTAL CHARACTER 

ZERO, WRITE O IN LIST 

;COUNT UP TO 


“ADD ASCII PREFIX 
sWRITE ASCII CHAR IN LIST 


[EXPAND BINARY WEIGHT 


35 CHAR IN LIST 
SET X3 FOR ADD LOOP 
:MAKING SEVENTY BY SEVEN 


=NX SEVEN SET = A. OCTAL 
;SEND 5 CHAR TO T 


SEQ 0024 





M 2 
7Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12-JUN-78 14:59 PAGE 26 
CZDRCH.P11 12-JUN=78 14:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0025 


014477 177542 MOV ~(4) ,aTDBR 
005367 000026 DEC ASCNT 
BEQ HDF HM FINISH PRINTING GET NXT NUM 
BR WAIT2 
177530 : TSTB aTCSR 
BPL & 


RTS 47 sHEAD FOR HOME 


3 


jeloleleleleleleleleoleo) 


LOOP ROUTINE ENTERED BY USER TRAP 
: CMP (6)+,%6 


’ REPOSITION THE STACK 
177776 MOV (6) +, a4PSW 
000120 @RE TURN :SCOPE RETURN 


E OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES 
040000 174334 — ‘ #SW14,aSWR sTEST SR FOR SCOPE 
COPEB TYES SCOPE 
001240 


Jes URUNSSRIRAR ECCS SSS 


race 


005000 000004 AXOR , a44 
000031 177060 #31 ,a4#177060 
000004 (26) +, a4 
004000 174270 #SW11,aSWR 
BN SCOPEA 

174312 PASCNT sARE WE IN FIRST PASS? 

SCOPEA BRANCH IF YES; INHIBIT ITERATIONS 
000026 000022 SCOPEF , ICOUNT 


SCOPEG EXIT = DONE 
000016 SCOPEF : INCREMENT COUNT 
SCOPEB LOOP SOME MORE 
000010 
000006 


Lththa 
DONOUSWN— 


:NO ~- TEST FOR ITERATION 
; INHIBIT ITERATION 


hye bye tga ba bye) 4 
KUNAZSS 


1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
; 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SCOPEF CLEAR COUNT 
@%6,RETURN SAVE SCOPE RETURN POINTER 
RETURN INLINE-NEXT TEST 


SCOPEF: 0 ;COUNT LOCATION FOR ITERATION LOOP 
: ADDRESS OF LAST TEST 
000167 173200 JMP 200 


022626 XOR: (26) +, (46) + 
012637 000004 V (26) + ,a#4 
000714 BR SCOPEB 

3FRINT DEVICE ADDRESS AND VECTOR 
012777 000240 177316 MOREID: MOV #240, aTDBR 
105777 177314 TSTB aTCSR 


el ed ed eed eed 
Meters 
SSBIKA 


SEESESELSES 


WN 
vl 
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22-CZDRC-H,DR11C DEV REG 30A(1052) 12=JUN-78 14:59 PAGE 27 
CZDRCH.P11 12-JUN-78 14:57 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0076 


4 
001222 @ADRCSR ,%2 

7 - 177310 %7,PRTAB 
000240 #240 ,aTDBR 
177270 aTCSR 


74 
174156 DRVFCA,%2 
177264 %7,,PRTAB 
000215 177246 #215,aTDBR 
177244 aTCSR 


WWNWAAGS 
Myiw 
won 


SES 


000212 177232 mo #212. aTDBR 
177230 aTcsR 
177220 

177216 


¢ 


;BACK TO PRINT 
ENTER HERE 


PFAIL: SAVE REGISTER OR STACK 
MO WHEN POWERING DOWN 


mee ek ee ek ed td od od 


NWIWWWAN WW WWWG 
GIISSSSSSESTSE 


Ww 
~N 
On 


STORE STACK POSITION 


HALT HALT ON POWER DOWN NORMAL 
SAVR6: 0 : STACK IS SAVED HERE 
177772 RESTAR:MOV RESTORE REGISTER OFF STACK 
172632 MOV 6)+,24 WHEN POWERING UP 


0 
005162 000024 


SESseeeeesy 


8 


WWW 
000 
Wr 


ZENTER HERE FOR UNIQUE SELECTION OF DRIIC 
SPECO: ; ;PLACE ADDRESS OF DR11-C CONTROL STATUS 


Ww 
aR 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


8 


173774 @SWR ,R1 
005246 PC ,@#SPEC1 


‘ 


104406 

017701 173760 OSWR ,R1 
004737 PC ,a@ASPEC2 
000137 @ASTART 


012700 #RCSR,RO :SET TABLE ADDRESS 
010120 MO R1, (RO) + *LOAD INTO TABLE STARTING AT RCSR 





ZZ7-CZDRC-H,DR11C DEV REG 


CZDRCH.P11 


12-JUN-78 14:57 


105767 
100002 


000002 
009002 


001210 


000223 


000002 


000002 
000011 
000200 


000130 


8 3 
MACY11 eoyer 12=JUN-78 14:59 PAGE 2 


8 
T VALUE FOR SOFTWARE SWITCH REGISTER 


ADD #2,R1 STEP TO ADDRESS OF DROUTBUF 
MOV R1,(RO)+ ;LOAD INTO TABLE 
ADD #2,R1 STEP TO ADDRESS OF DRINBUF 
MOV R1,(RO)+ ;LOAD INTO TABLE 
DEC R1 FORM ADDRESS OF DROUTBUF +1 
MOV R1,(RO)+ ;LOAD INTO TABLE 
RTS PC 
SPEC2: MOV #RCSR1,RO 
MOV R1,(RO)+ ;LOAD INTO TABLE 
TST (R1)+ 
Vv R1,(RO)+ 
TST (R1)+ 
MOV R1,(RO)+ 
RTS PC 
LIST ME 


TYP: 
-SBTTL TYPE ROUTINE 


DRA ICICI IOI IOIDIIOIOISISIIIIOIIOIIOIIOIDIOIOI IOI IOI TOI TOT TOT TOT TOT TOT OTT TT TOT ETE 
;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


> *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
> *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
°2 
z*CALL: 
3*1) USING A TRAP INSTRUCTION 
am TYPE -MESADR ;zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
se TYPE 
3* ME SADR 
3* 
$TYPE: TSTB STPFLG 71S THERE A TERMINAL? 
BPL 1$ BR IF YES 
HALT 77HALT HERE IF NO TERMINAL 
BR 3$ 7s LEAV E 
1$: MOV RO,-(SP) SAVE RO 
MOV a2(SP) ,RO TIGET ADDRESS OF ASCIZ STRING 
2s: MOVB (RO) +,-(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 7;BR IF IT ISN'T THE TERMINATOR 
TST (SP) + :1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO * CRESTORE RO 
3$: ADD #2, (SP) 7 ADJUST RETURN PC 
RTI 7 RETURN 
4$: oe #HT , (SP) 7 BRANCH IF <HT> 
— ACRLF , (SP) ; BRANCH IF “NOT <CRLF> 
TST (SP) + 7zPOP <CR><LF> EQUIV 
TYPE 72: TYPE A CR AND LF 
$SCRLF 
CLRB $SCHARCNT 3z:CLEAR CHARACTER COUNT 


BR 2$ 32GET NEXT CHARACTER 


SEQ 0027 


ZZ7-CZDRC-H,DR11C DEV REG 


12-JUN=78 14:57 


000056 
000130 


000% 20 
000001 


000032 
000072 


MACY11 30A(1052) 
TYPE ROUTI 


000052 


000036 
000002 


12=JUN-78 
NE 


;HORIZONTAL TAB 


PC ,STYPEC 


SFILLC,(SP)+ 
2$ 


$NULL ,~ (SP) 
1(SP) 

6$ 
PC,$TYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#" (SP) 
PC, $TYPEC 
#7 , SCHARCNT 
9$ 

(SP) + 

2$ 

a$TPS 


$TYPEC 
2(SP) ,a$TPB 


¢ 3 
14:59 PAGE 29 


TYPE THIS CHARACTER 
IT TIME FOR 4g CHARS .? 
O GET NEXT CHAR. 
OF FILLER CHARS. NEEDED 
TAND THE NULL CHAR. 
2 DOES A NULL NEED TO BE TYPED? 
:BR IF NO--GO ‘ee THE NULL OFF OF STACK 
£260 TYPE A NUL 
;DO NOT COUNT AS A COUNT 


: REPLACE TAB WITH SPACE 
72 TYPE A SPACE 
;;BRANCH IF NOT AT 
32 TAB STOP 
+ ¢POP SPACE OFF STACK 
3GET NEXT CHARACTER 
TZ WAIT UNTIL PRINTER IS READY 


3:LOAD CHAR TO BE TYPED INTO DATA REG. 
31S CHARACTER A CARRIAGE RETURN? 


#CR,2(SP) 
1$ ; BRANCH IF NO 
4) "alae CHARACTER COUNT 
ALF ,2(SP) 3731S CHARACTER A LINE FEED? 
$STYPEX ; BRANCH IF YES 
(PC) + 3;:COUNT THE CHARACTER 

: CHARACTER COUNT STORAGE 


000002 1$: 


INCB 
SCHARCNT : . WORD 
S$TYPEX: RTS 


zzTTY PRINTER STATUS REG. ADDRESS 

eeTTy PRINTER BUFFER REG. ADDRESS 
;CONTAINS NULL CHARACTER FOR FILLS 

: CONTAINS # OF FILLER CHARACTERS REQUIRED 

pegs al FILL CHARS. AFTER A ‘LINE FE 
na nn aml FLAG (BIT<07>=0=YES) 


SCIZ <12> 7 LINE 
BINARY TO OCTAL (ASCII) AND TYPE 


CDOS IOI SISISISIOIIOIIIDIIIIIIIIOI IOI IOI IOI TOT TOT TOR TOR TOR TT TA IAI AI AIS SASS SN 

:*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 

>*OCTAL (ASCII) NUMBER AND TYPE IT 

:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
LL: 


NUM ,~ (SP) ; NUMBER TO BE TYPED 
23 CALL FOR TYPEOUT 
=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


3 


N 
M 
321=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


: «$TYPON==--ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


hk ak td a od a 
MAMAN) 
4 ot oo ot 
CONAUSWMN—O 





Dd 3 
Z2Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12=JUN=78 14:59 PAGE 30 
CZDRCH.P11 12=JUN=78 14:57 BINARY TO OCTAL (ASCII) AND TYPE 


: #$1¥POS OR $TYPOC 
* MOV NUM, = (SP) : NUMBER TO BE TYPED 
TYPON *=CALL FOR TYPEOUT 
** 
; #$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
Lis 


NUM ,=(SP) ; NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


a(SP) ,-(SP) 3sPICKUP THE MODE 
000211 MO 2 ¢LOAD ZERO FILL SWITCH 
SP)+, NUMBER OF DIGITS TO TYPE 
S:ADJUST RETURN ADDRESS 


BR 
000171 3 . :sSET THE ZERO FILL SWITCH 
000165 M ° 3sSET FOR SIX(6) DIGITS 
000154 2 ‘cee at ITERATION COUNT 


NVNNY 
won 


MAA AAA AI VI IIT 
BYRAEAYSS 


Ww 


ee RS 
3;GET THE NUMBER OF DIGITS TO TYPE 


3¢SUBTRACT IT FOR MAX. ALLOWED 
:sSAVE IT FOR USE 

::GET THE ZERO FILL SWITCH 
23PICKUP_THE INPUT NUMBER 
3;CLEAR THE OUTPUT WORD 

= sROTATE MSB INTO ‘'C’’ 


DO MSB 
32 FORM THIS DIGIT 


Ware leak eal ealval ea! 
LEEFLF 
UBWNH—O” 


NO 


: R :GET LSB OF THIS DIGIT 
000076 > Z TYPE THIS DIGIT? 


$ IF NO 
177770 - :3GET RID OF JUNK 
BNE 4$ 7: TEST FOR 0 
3; SUPPRESS THIS 0? 
ig IF YES 
7;DON'T SUPPRESS ANYMORE 0'S 
7zMAKE THIS DIGIT ASCII 
7ZzMAKE ASCII IF NOT ALREADY 
7 SAVE FOR TYPING 
2260 TYPE THIS DIGIT 
T BY 1 


: BR IF MORE TO DO 
; DONE 


IF 
>: INSURE LAST DIGIT ISN'T A BLANK 
2260 DO a Fat DIGIT 


Walvabeabcabeakeah ah cabvabvah vale) 
WONAURWN OO 


FESS 


; 
; 
1 
1 
i 
1 
; 
; 
1 
1 
: 
; 
; 
1 
1 
1 
1 
1 
j 
1 
1 
\ 
: 
; 
1 
1 
; 
1 
; 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Yew 
SSIES 


_ Ss 
wn 
Na 


: E R3 
000002 000004 2(SP).4(SP) SISET THE STACK FOR RETURNING 
012616 (SP) +, (SP) 


— 
SN 
Rw 





a el el a ae a ee ee ed ed 
ABRXAXRKAXAAAAAO 
aed a ad cad a ae ed ed oe 
WONAUNSWMH—O 


7Z7-CZDRC=H,DR11C DEV REG 


12-JUN=78 14:57 
000002 
000 
000 
000 
000 
000000 


177560 
177562 


022767 000176 
177760 
177754 
177600 
000007 
000514 
006531 
006536 
172112 


006547 
177676 


117746 177672 
042716 177600 


021627 000025 
001005 
006524 
000006 


000015 
000004 
000002 


SOMODE: .WORD 0 
-SBTTL TTY INPUT ROUTINE 


. 2 
MACY11 30A(1052) 12=-JUN-78 14:59 PAGE 31 
BINARY TO OCTAL (ASCII) AND TYPE 


TURN 
tt hi tee FOR ASCII DIGIT 


ITCH 
“ INUMBER OF DIGITS TO TYPE 


FT RE REREEREREREEEEEEREEEREKEEEEEREKEKEEEREREEKEKEEEKEREKEEREKKEKK 


$TKS: .WORD 177560 
$TKB: .WORD 177562 
-CNABL LSB 


TTY KBD STATUS 
7: TTY KBD BUFFER 


WeERAASAAAAAASAASSLLASSASAASASALASRE SALES ALAA ERASE RAR SARE SAREE SESS SD GS 


> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE Swi TCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


$CKSWR: CMP ASWREG, SWR 
15$ 


a$TKS 

15$ 
@$TKB,-(SP) 
#*C177, (SP) 
#7, (SP)+ 
15$ 

$AUTOB 41 
15$ 


-$CNTLG 

. SMSWR 
SWREG, =~ (SP) 
- SMNEW 
-(SP) 


-(SP) 
a$TKS 
7$ 


@$TKB,-(SP) 
#°(177, (SP) 


(SP) ,425 
10$ 


2i1S THE SOFT-SWR SELECTED? 
CH IF NO 


ey 

i IF DON'T WAIT AROUND 
SESAVE THE CHAR 
33STRIP-OFF THE ASCII 
et IT A CONTROL G? 

RETURN TO USER 

TZARE WE RUNNING IN AUTO-MODE? 

7 BRANCH IF YES 


:sECHO THE CONTROL-G (“G) 

:-TYPE CURRENT CONTENTS 

::SAVE SWREG FOR TYPEOUT 

33GO TYPE--OCTAL ASCII(ALL DIGITS) 
;zPROMPT FOR NEW SWR 


HAR THERE? 
331F NOT TRY AGAIN 


:sPICK UP CHAR 
3sMAKE IT 7-BIT ASCII 


2321S IT A CONTROL-U? 

72BRANCH IF NOT 

se YES, ECHO CONTROL-U (“U) 
: IGNORE PREVIOUS INPUT 

SZLET'S TRY IT AGAIN 


ils IT A <CR>? 

ANCH IF NO 
ben’ eh’y ny FIRST CHAR? 

SAVE NEW SWR 





ZZ-CZDRC-H,DR11C DEV REG 

CZDRCH.P11 12=JUN=78 14:57 
000006 
005547 
000367 
000100 
177254 
000060 


000067 


000060 
000002 


000002 
177776 
005546 


000004 
177476 


177472 
177600 
000004 
177444 
177440 
177600 
000021 
000004 
000004 
000040 


. 3 
MACY11 oe ta 12-JUN-78 14:59 PAGE 32 


000001 
177574 


000002 


000004 
000004 
000023 


000140 
000175 
000004 


Y INPUT ROUTINE 
#6, SP 
, SCRLF 
$INTAG,#1 
15$ 
#100, a$TKS 


PC ,$TYPEC 
(SP) ,460 


18$ 

(SP) ,467 
18$ 

#60, (SP)+ 
2(SP) 


2 (SP) 
-2(SP) , (SP) 
7$ 

,$QUES 

20$ 


+ CLEAR UP oy 
TTY KBD. INTERRUPTS? 
NOT 
TTY KBD INTERRUPTS 


; I 

: STRIP-OFF ASCII 
IITs THIS THE FIRST CHAR 
; ;BRANCH IF YES 
;3;NO, SHIFT PRESENT 

; CHAR OVER TO MAKE 
;; __ROOM FOR NEW ONE. 
;sKEEP COUNT OF CHAR 
72SET IN NEW CHAR 
3:GET THE NEXT ONE 
33 TYPE ?<CR><LF> 
:sSIMULATE CONTROL-U 


SL KERR REE KEKE KKK EEE REE REE KEKEKEKKEEEEKEKEKEKKE 


:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;*CALL: 


:* RDCHR 
i RETURN HERE 
"* 


$RDCHR: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
1$: tiene 


i 
@$TKB,4 (SP) 
#*C<177>,4 (SP) 
4(SP) ,#23 

3$ 

a$TkS 

2$ 

a$TKB,-(SP) 
#*(177, (SP) 
(SP) +,421 

2$ 

1$ 

4(SP) £140 
4(SP) ,#175 

4$ 


#40,4(SP) 
4$: 


32 INPUT A SINGLE erg FROM THE TTY 
iow Hy IS ON THE STA 
sWITH PARITY BIT STRIPPED OF F 


3zPUSH DOWN THE PC 
a THE PS 


:3GET RID OF JUNK IF ANY 
S ae A CONTROL-S? 


H IF NO 
UAT FOR A CHARACTER 
;;LOOP UNTIL ITS THERE 
3:GET CHARACTER 
33MAKE_IT 7-BIT ASCII 
21S 1T_A CONTROL-Q? 
331F NOT DISCARD IT 
72YES, RESUME 
2iJ5 A rs tee 


BRANCH IF YES 
rE: IT A SPECIAL CHAR? 
CH IF YES 
> ;MAKE IT UPPER CASE 
::GO BACK TO USER 


‘Wet AASALAAAL A220 22 RRRERERRRLASASELASAASALS ALES ALARA RASA SASS SARS SE SY 


[*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


. 


SEQ 0031 





G 3 
7Z7-CZDRC=H,DR11C DEV REG MACY11 othe to te 14:59 PAGE 33 
CZDRCH.P11 12=JUN=78 14:57 INPUT ROUT! SEQ 0032 


>*CALL: 

;* RDLIN 33 INPUT A STRING FROM THE TTY 

RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 


010346 $RDLIN: R3,~-(SP) 3SAVE R3 
006514 1$: MO ASTTYIN,R3 2 éGET ADDRESS 
006524 2$: ASTTYINGS. ,R3 ;BUFFER FULL? 
4$ ::BR IF YES 
+360 READ ONE CHARACTER FROM THE TTY 
(SP)+, (R3) CTER 


000177 : #177, (R3) 
BN 


3$ 

005546 : . SQUES é 
BR 1$ SICLEAR THE BUFFER AND LOOP 

000044 : (R3) ,9$ 3sECHO THE CHARACTER 
00€512 © 9 
000015 #15, (R3)+ + CHECK FOR RETURN 

2$ LOOP IF NOT RETURN 
177777 -1(R3) 73 CLEAR RETURN (THE 15) 
005550 -$LF FEED 

(SP) +,R3 


;RESTORE R3 
(SP) ,=(SP) ;sADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP) ,2(SP) 3 FIRST ASCII CHARACTER ON IT 
006514 000004 ASTTYIN,4(SP) — 


9$: 0 «STORAGE 45 ASCII CHAR. TO TYPE 
r 0 3 TERMINATOR 

>TTYIN: . 8. ary te ag 8 BYTES FOR TTY INPUT 
005015 000 $CNTLU: /*U/<15><12> 3: CONTROL ‘U"' 
006507 000012 S$CNTLG: . /*G/<15><12> 7: CONTROL ‘'G’’ 
me 020122 S$MSWR: <15><12>/SWR = / 


047040 053505 $MNEW: .ASCIZ / NEW = 


000040 
$AUTOB: .BYTE 0 3zAUTO MODE FLAG 
$INTAG: .BYTE 0 3; INTERRUPT MODE FLAG 
-SBTTL TRAP DECODER 


FUROR CIO IOIIOIIOIOIOIOIOI IORI OI IOI IT TISAI IIA ISISISISISISSISAISA ISAS A 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’* INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: RO,-(SP) 3-SAVE RO 
000002 MO . att TRAP ADDRESS 
) CKUP BY 2 


[GET RIGHT BYTE OF TRAP 

R POSITION FOR INDEXING 
006616 $TRPAD (RO) ,RO  TINDEX TO TABLE 
RO 3:G0 TO ROUTINE 


MONOD 3 a Ss es SS SS SS 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


Nm 
MEWN |S ODNAUSWN—O 


N 
in 


3: THIS IS USE TO HANDLE THE ‘'GETPRI** MACRO 





H 3 
7Z7-CZDRC-H,DR11C DEV REG MACY11 30A(1052) 12=-JUN-78 14:59 PAGE 34 


CZDRCH.P11 12=JUN=78 14:57 TRAP DECODER SEQ 0033 


011646 $TRAP2: MOV (SP) ,=(SP) 3;sMOVE THE PC DOWN 
016666 000004 000002 MOV 4 (SP) ,c (SP) ;sMOVE THE PSW DOWN 
000002 RTI : RESTORE THE PSW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘'TRAP’’ INSTRUCTION. 


3 ROUT INE 


D $TRAP2 

E ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 


$GTSWR ;;CALL=GTSWR TRAP+5(104405) GET SOFT-SWR SETTING 


$CKSWR ;;CALL=CKSWR TRAP+6(104406) TEST FOR CHANGE IN SOF T-SWR 

$RDCHR ;;CALL=RDCHR TRAP+7(104407) TTY TYPEIN CHARACTER ROUT INE 

$RDLIN ;;CALL=RDLIN TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
047531 020125 MESSI: .ASCIZ <15><12>"YOU ARE ON AN XOR TESTER'<15><12> 


MESS3: .ASCIZ /END PASS/<15><12> 
000012 - 
-EN 





ee. 
2Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12-JUN=78 14:59 PAGE 36 
CZDRCH.P11 12=JUN=78 14:57 CROSS REFERENCE TABLE -- USER SYMBOLS 


1261* 1285* 1292* 1296* 13074 
37 843 8454 1342 
1277* 1280* 1281 1284* 13064 


17624 


1123* 
1352 


913* 
1027 
1169* 


743% 





ZZ7-CZDRC-H,DR11C DEV REG 
CZDRCH.P11 


001632 


12-JUN=78 14:57 


J 3 
MACY11 30A(1052) 12=JUN-78 14:59 PAGE 37 
CROSS REFERENCE TABLE == USER SYMBOLS 


808 8104 
1756 1757 


OR 
BSS 


1347 
1337* 


1288* 


sea 
= 


1334 
1262* 1271 
705 8074 


936 
1029 


1023* 1035* 13404 


1087* 
1315* 


946 
1042 


1088* 


SEQ 0035 


1097* 





7Z-CZDRC=H,DR1 
CZDRCH.P11 


005212 


1C DEV REG 
12-JUN=78 14:57 


—- 
Bak eS oS | OOO 
VAISS SVs 33a 


wW 
SJ 
R 


a — oo <_d and od 
me ——..]]=200 -Ww 
S BRSVEEFE SES 
* SYLQVee 2 * 


K 3 
MACY11 30A(1052) 12=-JUN-78 14:59 PAGE 38 
CROSS REFERENCE TABLE == USER SYMBOLS 


836 856 1055 


1210 1403 


752 766-842 


1593 1606 


1198 


1224 1227 1235 
1226* 1234* 12534 


13024 





.. 
7Z7-CZDRC“H,DR11C DEV REG MACY11 30A(1052) 12=JUN=78 14:59 PAGE 39 
CZDRCH.P11 12=JUN=78 14:57 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0037 


TRTVEC= 000014 
TST4 3 


1459 1564 1604 1605 1608 1621 1632 1651 1700 


1283* 13054 


1322 
1487* 14924 


15804 


Ranke 
xxkk&kek 


17584 17594 1760 17614 1762 17634 17644 17654 





M 3 
7Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12=JUN=78 14:59 PAGE 40 
CZDRCH.F11 12-JUN=78 14:57 CROSS REFERENCE TABLE == USER SYMBOLS 


006616 
006514 1711 17154 
Perri ry 
akenee 


14824 


79 
1216 
1496 
17154 1716 1722 
-HLT 004126 
-SCOPE 004652 . 





N 3 
7Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12-JUN-78 14:59 PAGE 42 
C.DRCH.P11 12=JUN=78 14:57 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0039 


927 941 953 961 968 975 
1065 1084 1096 1106 1116 1129 





B 4 
7Z7-CZDRC=H,DR11C DEV REG MACY11 30A(1052) 12-JUN-78 14:59 PAGE 43 
CZDRCH.P11 12=JUN=78 14:57 CROSS REFERENCE TABLE == MACRO NAMES 


319% 1581 


000 


ERRORS DETECTED: 0 


CZDRCH.BIN, CZDRCH.LST/CRF/SOL=CZDRCH.SML,CZDRCH.P11 
RUN-TIME: 8 10 .6 SECONDS 

RUN-TIME RATIO: 110/20=5.4 

CORE USED: 32k (63 PAGES) 





